home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / data.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-12-05  |  5.2 KB  |  197 lines
  1. VERSION 2.00
  2. Begin Form datas 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Data Chart"
  6.    ClientHeight    =   4875
  7.    ClientLeft      =   780
  8.    ClientTop       =   1830
  9.    ClientWidth     =   8280
  10.    Height          =   5565
  11.    Icon            =   DATA.FRX:0000
  12.    Left            =   720
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   4875
  17.    ScaleWidth      =   8280
  18.    Top             =   1200
  19.    Width           =   8400
  20.    Begin Grid points 
  21.       BackColor       =   &H00FFFFFF&
  22.       Cols            =   7
  23.       FixedCols       =   0
  24.       FixedRows       =   0
  25.       Height          =   3495
  26.       Left            =   120
  27.       Rows            =   800
  28.       TabIndex        =   0
  29.       Top             =   1320
  30.       Width           =   8055
  31.    End
  32.    Begin SSPanel SSPanel1 
  33.       AutoSize        =   3  'AutoSize Child To Panel
  34.       BevelInner      =   1  'Inset
  35.       BevelWidth      =   2
  36.       ForeColor       =   &H00000000&
  37.       Height          =   735
  38.       Left            =   120
  39.       TabIndex        =   9
  40.       Top             =   120
  41.       Width           =   735
  42.       Begin PictureBox Picture2 
  43.          Height          =   525
  44.          Left            =   105
  45.          Picture         =   DATA.FRX:0302
  46.          ScaleHeight     =   495
  47.          ScaleWidth      =   495
  48.          TabIndex        =   10
  49.          Top             =   105
  50.          Width           =   525
  51.       End
  52.    End
  53.    Begin TextBox edit 
  54.       Height          =   495
  55.       Left            =   1320
  56.       TabIndex        =   1
  57.       Top             =   -120
  58.       Visible         =   0   'False
  59.       Width           =   495
  60.    End
  61.    Begin Label Label5 
  62.       BackColor       =   &H00C0C0C0&
  63.       Caption         =   "Grav. Y"
  64.       Height          =   195
  65.       Left            =   6600
  66.       TabIndex        =   6
  67.       Top             =   1080
  68.       Width           =   1065
  69.    End
  70.    Begin Label Label4 
  71.       BackColor       =   &H00C0C0C0&
  72.       Caption         =   "Grav. X"
  73.       Height          =   195
  74.       Left            =   5520
  75.       TabIndex        =   5
  76.       Top             =   1080
  77.       Width           =   1065
  78.    End
  79.    Begin Label Label7 
  80.       BackColor       =   &H00C0C0C0&
  81.       Caption         =   "Vel. Y"
  82.       Height          =   195
  83.       Left            =   4440
  84.       TabIndex        =   8
  85.       Top             =   1080
  86.       Width           =   1065
  87.    End
  88.    Begin Label Label6 
  89.       BackColor       =   &H00C0C0C0&
  90.       Caption         =   "Vel. X"
  91.       Height          =   195
  92.       Left            =   3360
  93.       TabIndex        =   7
  94.       Top             =   1080
  95.       Width           =   1065
  96.    End
  97.    Begin Label Label3 
  98.       BackColor       =   &H00C0C0C0&
  99.       Caption         =   "Y Point"
  100.       Height          =   195
  101.       Left            =   2280
  102.       TabIndex        =   4
  103.       Top             =   1080
  104.       Width           =   1065
  105.    End
  106.    Begin Label Label2 
  107.       BackColor       =   &H00C0C0C0&
  108.       Caption         =   "X Point"
  109.       Height          =   195
  110.       Left            =   1200
  111.       TabIndex        =   3
  112.       Top             =   1080
  113.       Width           =   1065
  114.    End
  115.    Begin Label Label1 
  116.       BackColor       =   &H00C0C0C0&
  117.       Caption         =   "Time"
  118.       Height          =   195
  119.       Left            =   120
  120.       TabIndex        =   2
  121.       Top             =   1080
  122.       Width           =   1065
  123.    End
  124.    Begin Menu fil 
  125.       Caption         =   "&File"
  126.       Begin Menu done 
  127.          Caption         =   "C&lose"
  128.          Shortcut        =   ^X
  129.       End
  130.    End
  131.    Begin Menu edt 
  132.       Caption         =   "&Edit"
  133.       Begin Menu cop 
  134.          Caption         =   "&Copy"
  135.          Shortcut        =   ^C
  136.       End
  137.       Begin Menu cut 
  138.          Caption         =   "Cu&t"
  139.          Shortcut        =   ^D
  140.       End
  141.       Begin Menu del 
  142.          Caption         =   "Clea&r"
  143.          Shortcut        =   ^I
  144.       End
  145.       Begin Menu cellall 
  146.          Caption         =   "&Select All"
  147.          Shortcut        =   ^J
  148.       End
  149.    End
  150. Sub cellall_Click ()
  151. points.SELSTARTROW = 0
  152. points.SELSTARTCOL = 0
  153. points.SELENDROW = 799
  154. points.SELENDCOL = 6
  155. End Sub
  156. Sub cop_click ()
  157.     Clipboard.Clear
  158.     Clipboard.SetText edit.text, (1)
  159. End Sub
  160. Sub cut_click ()
  161.     Clipboard.Clear
  162.     Clipboard.SetText edit.text, (1)
  163.     edit.text = ""
  164.     points.clip = edit.text
  165. End Sub
  166. Sub del_click ()
  167.     edit.text = ""
  168.     points.clip = edit.text
  169. End Sub
  170. Sub done_Click ()
  171.     d% = MsgBox("This will destroy all you data!", 49, "orbital")
  172.     If d% = 2 Then Exit Sub
  173.     datas.Hide
  174.     Unload datas
  175. End Sub
  176. Sub Form_Load ()
  177.     For n = 0 To 6
  178.         points.col = n
  179.         points.colwidth = 1080
  180.     Next n
  181.     points.row = 0
  182.     points.col = 1
  183.     edit.text = points.clip
  184. End Sub
  185. Sub linkit_Click ()
  186. On Error GoTo that
  187.     'edit.linkmode = 0
  188.     MsgBox "This function has yet to be installed.", 48, "Orbital"
  189. Exit Sub
  190. that:
  191. saveerr% = Err
  192. generalerrors
  193. End Sub
  194. Sub points_SelChange ()
  195. edit.text = points.clip
  196. End Sub
  197.